home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_5_erasor.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  618 b   |  30 lines
  1. property myName, meSprite, meMember, meHmember
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   meMember = meSprite.member
  7.   myName = meSprite.member.name
  8.   meHmember = member(myName & "h", 2)
  9. end
  10.  
  11. on mouseUp me
  12.   repeat with n = 1 to gmObject.smallFaceBGSpriteList.count
  13.     if the frameLabel = "save" then
  14.       if gmObject.smallFaceBGSpriteList[n].marked = 0 then
  15.         gmObject.smallFaceBGSpriteList[n].deleteMe()
  16.       end if
  17.     end if
  18.   end repeat
  19. end
  20.  
  21. on mouseEnter me
  22.   meSprite.member = meHmember
  23.   updateStage()
  24. end
  25.  
  26. on mouseLeave me
  27.   meSprite.member = meMember
  28.   updateStage()
  29. end
  30.